home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 110 / EnigmaAmiga110CD.iso / kit internet / utility / amtalk-2 / ntalk.amirx < prev    next >
Text File  |  1997-10-04  |  425b  |  21 lines
  1. /*ntalk.amirx*/
  2.  
  3. options results
  4. getselecteduser
  5. nuser=result
  6. userhost nuser
  7. name = result
  8. parse var name user '@' host
  9. if ~show(l, "rexxsupport.library") then
  10.     if ~addlib("rexxsupport.library", 0, -30) then
  11.         exit
  12. IF  ~SHOW('P','AMTALK')  THEN DO   /* Already there */
  13.         ADDRESS COMMAND 'run >nil: AmTalk '
  14.         address
  15.         waitforport amtalk
  16. end
  17. address amtalk
  18.         talk user host
  19.         exit
  20. end
  21.